home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Telnet / 5PM PowerMac / 5PM_Term_PPC.sea / Palettes Folder / Capture / Capture Recorder.rsrc / BTXT_4 < prev    next >
Text File  |  1994-03-15  |  866b  |  28 lines
  1. On mouseUp
  2.     If the short name of me = "Start Capture" then
  3.         Put the tmToolConfig of the targetSession of this palt into btn "tmConfig"
  4.         Put the long name of palt last word of the name of me into pathName
  5.         Set the chunkSeparator of 5PM to ":"
  6.         Get replacechars (the long time, ":", ".")
  7.         Put (the short date & " at " & it) into last chunk of pathName
  8.         Capture2 "STRT", btn "sess", pathName
  9.         Put the result into btn "refNum"
  10.         If btn "refNum" is empty then
  11.             Exit mouseUp
  12.         End If
  13.         Put pathName into btn "fName"
  14.         Set the name of me to "Stop Capture"
  15.         Get false
  16.     Else
  17.         If btn "refNum" is not empty then
  18.             Set the enable of btn 5 to true
  19.             Capture2 "STOP", btn "refNum"
  20.         End if
  21.         Put empty into btn "refNum"
  22.         Set the name of me to "Start Capture"
  23.         Do ReadList
  24.         Get true
  25.     End If
  26.     Set the enable of btn 2 to it
  27.     Set the enable of btn 5 to it
  28. End mouseUp